Tech Arsenal 2/Tech Arsenal 2 (Arsenal Computer).iso/clipper/52cus.exe/INSTALL.DAT

INSTALL Professional project | 1993-08-06 | 11.7 KB | 409 lines

/****************************************************************/
/*  INSTALL.DAT                                                 */
/*                                                              */
/*  Copyright (c) 1993 Computer Associates International        */
/*  All Rights Reserved                                         */
/*                                                              */
/*  Last revision:   07/30/93                                   */
/****************************************************************/

@DefineProject
   @Group     = "A"
   @Requires  @HardDisk
   @Name      = "CA-Clipper 5.2c"
   @Version   = "5.2c"
   @OutDrive  = C
   @Subdir    = "\\CLIPPER5"
@EndProject

@DefineVars
   @Integer @InDisk  = 0      /* change for proper input disk type */
   @Dir @Bin           = "@SubDir\\BIN"
   @Dir @Include       = "@SubDir\\INCLUDE"
   @Dir @Lib           = "@SubDir\\LIB"
   @Dir @Obj           = "@SubDir\\OBJ"
   @Dir @Dbu           = "@SubDir\\SOURCE\\DBU"
   @Dir @Rl            = "@SubDir\\SOURCE\\RL"
   @Dir @Sys           = "@SubDir\\SOURCE\\SYS"
   @Dir @Sample        = "@SubDir\\SOURCE\\SAMPLE"
   @Dir @Ng            = "\\NG"
   @Qstring @NewLine   = "\n"
   @Qstring @Pkbkp     = "/O"

@EndVars

@Display
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Patch
  █ Computer        █
  █  Associates     █     This program will upgrade the CA-Clipper
  █   International █     version 5.20, 5.2a or 5.2b files on your
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     computer system to 5.2c. The basic steps in
       ▄▄▄▄▄▄▄▄▄          the procedure are as follows:
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄

                          ■ Specify target directories
                          ■ Install patch files to hard disk
                          ■ Execute patch files

                  Press Esc at any time to stop the installation.

                                       @Pause

@EndDisplay
@GetOption
@LocalWindow(9,38)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █
  █   International █     Exit Patch and Perform a backup?
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄

                            @Option 10 = "Exit"
                            @Option 11 = "Continue"

@Newline

         You should backup your current version of CA-Clipper 5.2
         and remove any prior versions of CA-Clipper 5.2 from your
         CA-Clipper 5.2 directory structure before applying the
         CA-Clipper 5.2c upgrade patch.  If you have not backed up
         and removed any prior versions (as per the instructions
         contained in the 52CUS.TXT file) yet, you should exit this
         installation, perform a backup and restart the patch process.

@EndOption

@If ( 10 [= @Option )
   @Exit ()
@Endif


DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █     Select Clipper 5.2 Drive:
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄









     Use  and  to highlight the drive where CLIPPER 5.2 is installed,
     then press ─┘ to continue. Press Esc to exit.

@EndOutDrive

@GetSubdir
@LocalWindow(6,56)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █     Select Clipper 5.2 Directory:
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄




     Type the directory name where CLIPPER 5.2 is installed, then
     press ─┘ to continue. Press Esc to exit.

@EndSubdir

@GetOption
@LocalWindow(7,38)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █     Patch files in the following directories?
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄         @Option 101 = "  Yes  "
                            @Option 102 = "  No   "
@Newline
                         Executables  =>  @Subdir\BIN
                         Libraries    =>  @Subdir\LIB
                         Header files =>  @SubDir\INCLUDE
                         Obj files    =>  @SubDir\OBJ
                         Dbu files    =>  @Subdir\SOURCE\DBU
                         RL files     =>  @Subdir\SOURCE\RL
                         Sys files    =>  @Subdir\SOURCE\SYS
                         Sample files =>  @Subdir\SOURCE\SAMPLE
                         Norton guide =>  \NG

      Select 'Yes' to proceed with patch installation using directories
      shown above.  If you select 'No', you will be prompted for each
      of the above directories.
@EndOption

@Bin = "@Subdir\\Bin"
@Lib = "@Subdir\\Lib"
@Include = "@Subdir\\Include"
@Obj = "@Subdir\\Obj"
@Dbu = "@Subdir\\Source\\Dbu"
@Rl = "@Subdir\\Source\\Rl"
@Sys = "@Subdir\\Source\\Sys"
@Sample = "@Subdir\\Source\\Sample"
@Ng = "\\NG"

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Bin" ) ) )
GetBinPath:
  @GetSubdir @Bin
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the BIN directory, then
                press ─┘ to continue.  Press Esc to exit.

  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Bin" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Bin" ) ) / 2, "@OutDrive:@Bin DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetBinPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Lib" ) ) )
GetLibPath:
  @GetSubdir @Lib
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the LIB directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Lib" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Lib" ) ) / 2, "@OutDrive:@Lib DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetLibPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Include" ) ) )
GetIncludePath:
  @GetSubdir @Include
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the INCLUDE directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Include" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Include" ) ) / 2, "@OutDrive:@Include DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetIncludePath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Obj" ) ) )
GetObjPath:
  @GetSubdir @Obj
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the OBJ directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Obj" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Obj" ) ) / 2, "@OutDrive:@Obj DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetObjPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Dbu" ) ) )
GetDbuPath:
  @GetSubdir @Dbu
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the DBU directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Dbu" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Dbu" ) ) / 2, "@OutDrive:@Dbu DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetDbuPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Rl" ) ) )
GetRlPath:
  @GetSubdir @Rl
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the RL directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Rl" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Rl" ) ) / 2, "@OutDrive:@Rl DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetRlPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sys" ) ) )
GetSysPath:
  @GetSubdir @Sys
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the SYS directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Sys" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Sys" ) ) / 2, "@OutDrive:@Sys DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetSysPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Sample" ) ) )
GetSamplePath:
  @GetSubdir @Sample
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the SAMPLE directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Sample" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Sample" ) ) / 2, "@OutDrive:@Sample DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetSamplePath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Ng" ) ) )
GetNgPath:
  @GetSubdir @Ng
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the NG directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Ng" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Ng" ) ) / 2, "@OutDrive:@Ng DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetNgPath
  @Endif
@EndIf

  @DefineDisk
     @Label = "Update Disk"

     @BeginLib 52CINC.LIF
       @FILE *.* @Out @OutDrive:@Include
     @EndLib

     @BeginLib 52COBJ.LIF
       @FILE *.* @Out @OutDrive:@Obj
     @EndLib

     @BeginLib 52CRL.LIF
       @FILE *.* @Out @OutDrive:@Rl
     @EndLib

     @BeginLib 52CDBU.LIF
       @FILE *.* @Out @OutDrive:@Dbu
     @EndLib

     @BeginLib 52CSAMPL.LIF
       @FILE *.* @Out @OutDrive:@Sample
     @EndLib

     @BeginLib 52CSYS.LIF
       @FILE *.* @Out @OutDrive:@Sys
     @EndLib

  @EndDisk

@Finish
@Cls
@ChDrive(@StartUpDrive)

  @SPAWN("PATCH @OutDrive:@Bin CLP52BIN /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
                                       @Pause

  @SPAWN("PATCH @OutDrive:@Lib CLP52LIB /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
                                       @Pause

  @SPAWN("PATCH @OutDrive:@Ng CLP52NG /NOBACKUP /NOSUBDIRSEARCH /NOPATHSEARCH")
                                       @Pause


  @Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @Name Installation
  █ Computer        █
  █  Associates     █     CA-Clipper 5.2c has been installed on your
  █   International █     computer. Before using the product, view the
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     52CUS.TXT file using your word processor or
       ▄▄▄▄▄▄▄▄▄          the DOS TYPE command. This file contains the
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄       latest product information as well as
                          instructions on how to re-compile DBU, RL,
                          PE and the pre-linked libraries.



IMPORTANT:
   In order to ensure that the CA-Clipper 5.2c patch has been
   successfully installed, you should compare the date and time stamps
   of the updated files against the file list in the 52CUS.TXT file. If
   you have encountered a problem that you are unable to correct, call
   your CA-Clipper Level-I Technical Support representative.

@Pause
@EndFinish